dirDef <- "/home/esplet/analitzadors/dades/";

mitjaMensual <- function(prefixFitxer) 
{
        fitxers <- list.files(path= dirDef, pattern = sprintf("^%s.*txt",prefixFitxer))
        l<-rep(0,31)
 
        cn <- paste("V",1:18,sep="")
        for (f in fitxers) 
        {
             dia <- as.integer(substr(f,7,8))
             l[dia] <- (mean(read.csv(paste(dirDef,f,sep="\\"), header = TRUE, sep='\t',col.names=cn)$V13)*24)/1000
        }

        return(l)
}

dev.off.wrap <- function()
{
   dev.off()
   invisible()
}

graficaMensual <- function(anyy, mes) 
{
        mesos <- c("Gener", "Febrer", "Març", "Abril", "Maig", "Juny", "Juliol", "Agost", "Setembre", "Octubre", "Novembre", "Decembre")

        prefix <- sprintf("%04d%02d",anyy,mes)
        lValors <- mitjaMensual(prefix)

        if (length(lValors)>0)
        {
            fitxerSortida <- sprintf("%s.png", prefix)

            dies <- seq(1:length(lValors))
            titol <- sprintf("Consum mensual de %s del %d",mesos[mes],anyy)

            png(file = paste("grafiques\\",fitxerSortida,sep=""),width = 800, height = 600, units = "px")
            plot(y<-lValors,type="h", col="light blue", ylab="Kw/h dia",xlab="Dies",main=titol,xlim=c(2,30), lwd=8)

            #hist(y<-lValors, col="blue", ylab="Potencia",xlab="Dies",main=titol)
			axis(1,at=dies,labels=F)   

            dev.off.wrap()
        } else {
            print("No hi ha lectures d'aquest mes!")
        }
}

#setwd(dirDef)
